home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / PRINT ALL ENTRIES FOR 1 #.bas < prev    next >
BASIC Source File  |  2012-02-16  |  480b  |  20 lines
  1. 10  REM  MON GOES HERE
  2. 12  DIM S$(100),B$(50)
  3. 100  HOME : PRINT "INSERT PFILE DISK AND HIT RETURN"
  4. 101  INPUT X$
  5. 102 NN = 450
  6. 103 LF = 28
  7. 105  DIM P$(NN)
  8. 110 Z$ = "<CTRL-D>"
  9. 111  PRINT Z$;"CATALOG"
  10. 112  HOME 
  11. 120  PRINT Z$;"OPEN PFILE"
  12. 130  PRINT Z$;"READ PFILE"
  13. 140  FOR E = 0 TO NN
  14. 150  INPUT P$(E)
  15. 160  NEXT E
  16. 170  PRINT Z$;"CLOSE PFILE"
  17. 180  INPUT "WHAT # ACCOUNT";A$
  18. 200  PR# 1: FOR E = 0 TO NN: IF  MID$ (P$(E),9,3) = A$  THEN  PRINT E: PRINT P$(E)
  19. 201  NEXT E
  20. 202  GOTO 180